data<-read.table("genotyping_survival.txt",sep="\t")
data<-data[2:1062063,2:4]
pdf("histogram_effect_genotype_survival.pdf")
hist(as.numeric(as.vector(data[,3])),breaks=seq(-2,2.3,0.001),xlim=c(-2,2),xlab="EFFECTS",ylab ="COUNTS",main="HISTOGRAM_EFFECTS_GENOTYPE_SURVIVAL_GBM")
dev.off()

